home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / yat < prev    next >
Internet Message Format  |  1995-03-31  |  14KB
  1. Path: seq!spell
  2. From: Detlef Mueller <detlef@mwhh.hanse.de>
  3. Subject:  v01i048:  yat - TETRIS V1.3, Part01/01
  4. Newsgroups: comp.sources.hp48
  5. Keywords: tetris game yat update hp48
  6. Organization: M. Witt
  7. Followup-To: comp.sys.hp48
  8. Approved: spell@seq.uncwil.edu
  9.  
  10. Checksum: 2563579151 (verify with brik -cv)
  11. Submitted-by: Detlef Mueller <detlef@mwhh.hanse.de>
  12. Posting-number: Volume 1, Issue 48
  13. Archive-name: yat/part01
  14.  
  15. BEGIN_DOC yat.doc
  16. Hi, folks.
  17.  
  18. Here's an update of TETRIS to version 1.3 .
  19.  
  20. The changes (vs. version 1.0) are:
  21.     - 2862 bytes, chksum #49FAh
  22.     - Initial/pause screen (the reason for the incr. size ..)
  23.     - increased speed (I hope :)
  24.     - stone positions more close to the original
  25.  
  26. Installation:
  27.     To install the game, a) download the ASC version, execute ASC\->, b)
  28.     download the uudecoded version and recall it into the stack.
  29.     Enter the port number (0,1,2) where you want to store it and press
  30.     STO. Switch the HP48 off, then on again. TETRIS will now be installed
  31.     as a library named TETRIS. It uses the ID nr. 769. Normally, this
  32.     number is used by the HP CASINO48 card, but I think TETRIS is the
  33.     better choice.
  34.  
  35. Run/keys:
  36.     To play it, enter the LIBRARY TETRIS menu and press the softkey
  37.     named TETRIS or just type TETRIS[ENTER] at the command line.
  38.     You will now see an initial screen. After pressing any key the
  39.     game starts, coming up with the following screen:
  40.  
  41.     +-------------------------------------------+
  42.     |SCORE         |   ##        |    TETRIS    |
  43.     | 0            |   ##        |              |
  44.     |LEVEL         |             |    ******    |
  45.     | 0            |             |    *    *    |
  46.     |LINES         |             |    ******    |
  47.     | 0     ##     |             |              |
  48.     |       ##     |             |              |
  49.     ||PAUSE|| PVT ||_____________||+LEVL|| QUIT||
  50.     +-------------------------------------------+
  51.  
  52.     Symbol    Means
  53.  
  54.     ******    is a little help screen for the motion control keys.
  55.     *    *    Here they are:
  56.     ******        - Left arrow  : Move stone one step left
  57.             - Right arrow : Move stone one step right
  58.             - Up arrow    : Rotate stone
  59.             - Down arrow  : Drop stone
  60.             - VAR key     : 'Quick' move stone left
  61.             - NXT key     : 'Quick' move stone rigth
  62.  
  63.     |xxxxx|    are softkey menu labels. The following softkeys are supported:
  64.             - |PAUSE|     : Stop TETRIS until a key is pressed
  65.             - | PVT |     : Toggle stone preview on/off
  66.             - |+LEVL|     : Increment level
  67.             - | QUIT|     : Force 'GAME OVER'
  68.  
  69.     ##    is a stone.
  70.     ##
  71.  
  72.     The ON key can be used to leave TETRIS immediately.
  73.  
  74. Things to notice:
  75.     1) If you get a 'TETRIS failed' from the game, please mail me a
  76.        description of the circumstances and the contents of the stack.
  77.     2) I will maintain this program, so feel free to MAIL ME ideas for
  78.        improvement or notes of appreciation.
  79.  
  80. Credits:
  81.     1) Lennart Boerjeson - TETRIS posted in Aug 90. I take the pause
  82.        picture from it ..
  83.     2) Chris Spell - inserted the UUENCODE form of TETRIS (thanks :-)
  84.     3) W. C. Wickes - \->ASC
  85.     4) HP - RPL tools/HP48
  86.  
  87. Enjoy,
  88.     8-), Detlef
  89. END_DOC
  90.  
  91. BEGIN_ASC yat.asc
  92. %%HP: T(3)A(R)F(.);
  93. "04B207561011455445259435A313E233C29A44D47293131110365510000001C5
  94. 1050000D9D201192010300F6C12B2130D9D2013593CA031FC2E4B2130D9D2074
  95. 3E4CA03117D007947044193B21308103000D9D20E1A8129E20103100E5E40D9D
  96. 2029E2010330029E2010340029E20103500B21308BE40D9D20C2A20F10004554
  97. 4525943502641696C6564680983B213029E20103200B2130D9D20FEF30530400
  98. 73E5442302CFA2743A2CB9A211CE29082629E20103F0032230C9B26980503392
  99. 0999000000000091029E20103E0088B2679E6003D4376040073E54E470D91409
  100. 70362BB4671B051192045000970362BB4671B05D91402BB4611920450002C230
  101. 71B0511920E6000A8B46C2A20D000015559445823A31192085000A8B46C2A20F
  102. 0000B2C45465C4823A3BC040A8B46C2A20B0000056545823A3FEF30A8B46C2A2
  103. 0F00000514553554823A33004075140C2A20F0000C494E4543508F1130040DA0
  104. 40C2A20F0000C4546554C408F113004088130C2A20F00003534F4255408F1111
  105. 920B500030040E1B20FE1000300062000FFFFFFFFF35240408092FFFFFFFFF30
  106. 000000000F7FBFBF4E180104805128010480510801048051080F148F4E180104
  107. 824028010484402801048841280F34805E10000000000FFFFFFFFF3524040809
  108. 2FFFFFFFFF300000000000002E100000006120000000E040000000E140000000
  109. E34000000000000008CFFFFF720C404040460E4A44494E0F5A4E4B4F1E4A4F5F
  110. 4E0C44CF7D460844404942004040404000CFFFFF700048404240004C40464000
  111. 4ECF7E40004F4F5E50004E4E4E40004C444640004840424000CFFFFF70000000
  112. 00000000040000000004000000008F300000000F100000000E00000000040000
  113. 0F30403C3700B821433703914049B462C2300DB4680B05940403F040D9140D00
  114. 403C370FEF3029E20103800433703004055735D00405273529E20103D00B2130
  115. D9D202A17083416C5416566169FF305761629E20103F002CFA2743A2CB9A211C
  116. E29082652616C9B269805051616D004087735CB916D9D201192060C00FEF306B
  117. 316E8F60834163223011920F99F06B316E8F6085230B2130B7040FEF30586169
  118. FF3055735CA1307E316E8F6098E36D9D2011920F99F06B316E8F602A1709FF30
  119. 87735A2170D9D20D00403C37029E20103A0043370CB416FED305861626224CB9
  120. 16D9D203004052735B2130B21303004087735A2170D9D20FEF306B316E8F6023
  121. E46CBD30CA1307E316E8F6069816D9D2011920F99F06B316E8F60B213023E460
  122. ED3011920F99F06B316E8F609FF3087735CB916D9D209FF30557357BF60B2130
  123. 85230FEF30B213066226300408773557B308C170B2130D9D203004052735B213
  124. 07CC30300408773564B308DA164423029E2010390030040877358C170B2130D9
  125. D2026224A2170D9D2021B469E040E1B205500070000820000000000000C94470
  126. 757324D6105515AD557055732554105215C55470727500000000000B82111920
  127. 8151059616170403C370B2040CC4168813011920091000ED3059616433701704
  128. 03C3702B1414337017D0056F1485230B2130860503004055735D004055735B21
  129. 30D9D203F040C6416908265361629E20103800E0416339208990000000001710
  130. 189A23392069900000000000105F6A200616B2130D9D208813023E467FE30B9F
  131. 06F6E30F6E305362121B46FEF3011920550008DF06F291121B4671040592300B
  132. 821C84169082655616D91402C23029E20103800120407FE30B9F06C641638D30
  133. CB91629E20103600580401192009100FD04011920C21002B1412B141B2130D9D
  134. 2030040CAF064E76100D110B821B2130D9D20C741688130C6416D0040877358D
  135. A1630040D00402CE30DF040CBD30CB4160ED305D72654616940402C23029E201
  136. 03800119208E3007FE30B4826119208E3007FE30B9F06E4D30CB916D9D205304
  137. 011920CB200F3040119204F1002B1412B141B213011920B0E002A170E4A20410
  138. 000001002003004002C230CA1307E316E8F60CAF06A85267E316E8F60CBD3071
  139. 040D2C2629E20103700D9D2023E460ED30B21301192000200CD6368C17044230
  140. 17D0024F50B2130D9D20E04169C7A141740CB916D9D2044EF3D50403D81629E2
  141. 0103B00F80403D816D9D20FEF306B316E8F6011920FFFFF29E20103C00442301
  142. 1920F99F06B316E8F60B21303A0403D816D9D20FEF306B316E8F609FF3029E20
  143. 103C004423011920F99F06B316E8F60B2130350403D816D9D20FEF306B316E8F
  144. 602A17011920FFFFF29E20103C008C17011920F99F06B316E8F60B2130760403
  145. D816D9D20FEF306B316E8F602A1709FF3029E20103C008C17011920F99F06B31
  146. 6E8F60B2130990403D816D9D209FF3052735B21309FF303D81629E20103D0030
  147. 0403D816D9D20D00408773539916D9D20D004055735834161192060C00FEF306
  148. B316E8F6085230B2130D004052735834161192060C0011920F99F06B316E8F60
  149. 85230B2130120403D81629E20103600B2040C6816D9D203004052735B2130B21
  150. 30B2130D9D20FEF306B316E8F6029E20103F00C9416C9B26CA416E0E3084E36D
  151. 9D204423013236B21308813059616C9B2632230CA1307E316E8F6098E36D9D20
  152. 12F06CC41657616B2130B9F0611920F99F06B316E8F60B2130D9D20881305961
  153. 6CBD30CA1307E316E8F60698160CA30CC4160ED3018A30B2130D9D2021B46FEF
  154. 30CA13053621CAF0611920450002BB46F2911CAF06CA13053621CAF061192045
  155. 0002BB46E9836C1B467B040E1B20591007200052000080051000008005100000
  156. E30510000080051010008984201000C8842C70008EB420100088CF7030004950
  157. 5810004D40501000A84C701000AA405820009C507820084E585450082B205450
  158. 089A205290084B68252100FAA83941009AAC6391009AA45521009AAAAEF0001F
  159. 76D28000114AA28000F14C7EF00011444101001F74CFF300908CF00208808280
  160. 02084001010208FFFFFFF30C429429460A4294294A0FFFFFFFFF110001100011
  161. 008020001100802000110080200011008020001FFFFFFFFF12BB46D0040E1B20
  162. 1300011000700008080E38081C0804122141422C1414141C10B8210B82156F14
  163. 85230592300B82124F50B213047A20D9D2075660CCD20A010013610ADD10B147
  164. 134109164AF0142100E7174143145132164AF215E1164818FA580D01561AFAAF
  165. 1D122A95118C9D5F522A8520A81819F122A82C1201BB5507146818F29818F29C
  166. 9136AF2156090A90B456E002F308200E49BF4BF4BF4AF68AE09AF0AF2AC48108
  167. 087340E68084396840E61111321641442011BDD11A136142164808CB2130CCD2
  168. 01D000174E78FB97601C4143132164AF0142101174143132164AF01421001741
  169. 43132169AF215EBAFAAF122A95118C9AF5BF522A8520A8181D22A82C1201BB55
  170. 07146818F29818F29C9134119BF2BF2241542BF616F16F1610D880BEBF4BF4BF
  171. 4AF68AEB8208F34150B213047A2047A20E4A2011000301100300200E4A201100
  172. 0102202201200E4A2011000101301201100E4A2011000102200100101B213047
  173. A20E4A2011000101300200100E4A2011000202100200201E4A20110001013012
  174. 01300E4A2011000202102101100B213047A20E4A2011000201100300200E4A20
  175. 11000202101200201E4A2011000101301200201E4A2011000202301201200B21
  176. 3047A20E4A2011000101300201200E4A2011000302201301200B213047A20E4A
  177. 2011000301100201200E4A2011000102201101200B213047A20E4A2011000000
  178. 300100200E4A2011000103102101100B213047A20E4A2011000201101100200B
  179. 2130B2130E4A20070000000000000000000000000000C3000000000000000000
  180. 00000000000000000000000000000000000610006045544525943500011000E4
  181. A2055000B9AEF35AEF76AEF91BEF46FEFDD1FFCD2FFE33FFD04FFB24FF595FF8
  182. 08FFEA8FFAE8FFB4BFF44DFFD6ACAF94"
  183. END_ASC
  184.  
  185. BYTES: #49FAh 2869.5
  186.  
  187. BEGIN_UU yat.uu
  188. begin 644 yat.lib
  189. M2%!(4#0X+45`*W!E`1%4151225,Z,2XS+*E$32<Y,1$!8U4!```07`$%`-#98
  190. M`A$I$#``;QRR$@.=+1!3.:PP\2Q.*S'0V0)'X\0*$W$-<$D'1)&S$@,8,`#0B
  191. MV0(>BB'I`@$3`%Y.T-D"DBX0,`,@Z0(!0P"2+A`P!;`2`[A.T-D"+"KP`0!4?
  192. M151225,@1F%I;&5D"(FS$@.2+A`P`K`2`YTM\/X#-4``-UY$,B#\*D>CPILJF
  193. M$>R2@&*2+A`P#S`B`YPKE@@%,RF0F0``````&2#I`@'C`(@K=ND&,$US!@1PT
  194. MXT5.!YU!D`=CLDMVL5`1*4`%`'DP)KMD%PO5&02R2Q:1`E0`("P#%PL5D0)N_
  195. M`*"X9"PJT```455)5"BC$Y$"6`"@N&0L*O```"M,159,**.S#`2*2\:B`@L`$
  196. M`&5%A3(Z[S^@N&0L*O```%!!55-%**,S``170<"B`@\`P)3D5#0%^!$#0-`*_
  197. M!"PJ\```3$5614R`'S$`!(@QP*("#P`P-?0D503X$1$IL`4``T#@L0+O`0`#C
  198. M`"8`\/____]30D"`D/+_____`P````#P]_O[Y($00`@5@A!`"!6`$$`(%8#P^
  199. M0?CD@1!`*`2"$$!(!((00(@4@O!#".4!`````/#_____4T)`@)#R_____P,`O
  200. M``````#B`0```!8"````#@0````>!````#X$````````@/S__R?`!`0$9."DT
  201. M1)3D\*7DM/3AI/3UY,!$_-=D@$0$E"0`!`0$!`#\__\'`(0$)`0`Q`1D!`#DA
  202. M_.<$`/3TY04`Y.3D!`#$1&0$`(0$)`0`_/__!P````````!``````$``````(
  203. M^`,```#P`0```.``````0```\`,$PW,`BQ(T<S`9!)1+)BP#T$N&L%!)0#`/N
  204. M!)U!T``$PW/P_@.2+A`P"$`S!P-`4'53#4!0<E.2+A`P#;`2`YTM(!H'.!3&"
  205. M16%E%I;_`W46)ND"`?,`PJ]R-"J\J1+!+@DH5F)AG"N6"`45%M8`!'@WQ9MA\
  206. MG2T0D0(&#/#^`[83YO@&.!0V(@,1*?"9#[83YO@&6#*P$@-[0/#^`X46EO\#O
  207. M53?%&@/G$^;X!HD^UMD"$2GPF0^V$^;X!J)QD/\#>#>E$@>=+=``!,-S(.D"'
  208. M`:,`-'/`2V'O/5!H86(BQ)MAG2TP``0E-[42`RLQ,``$>#>E$@>=+?#^`[83G
  209. MYO@&,D[&VP.L,7`^88YO8(EAG2T0D0*?^6`[88YOL!(#,DX&W@,1*?"9#[83&
  210. MYO@&^3^`=U.\&=;9`OD_4'53MV^P$@-8,O#^`RLQ8"9B`T"`=U-U.X`<!RLQ;
  211. MT-D"`T!0<E,K,7#,`P-`@'=31CN`K6%$,B#I`@&3``-`@'=3R'&P$@.=+2`F.
  212. M0BIQT-D"$DN6#@0>*U`%``<`@`(```````"<1`=7-T)M`551VE4'53=210$ED
  213. M45Q%!R=7``````"P*!&1`A@54&EA<4`P/`<K0,!,88@Q$)$"D`$`W@.5%D8S9
  214. M!W%`,#P'LD%!,P=Q#5#V05@RL!(#:%`P``15-]4`!%4WM1(#G2TP#P1L%):`%
  215. M8C46)ND"`8,`#A0VDP*8"0````!Q`8&I,I,"E@D```````'UI@)@82LQT-D"9
  216. MB#$@XV3W/K#Y8&\^\.8#-28AL63O/Q"1`E4`@/U@+QDAL6070%`I`[`HP4AAQ
  217. M"2A696&=02`L`Y(N$#`($`($]SZP^6!L%#;8`[P9)ND"`6,`A4`0D0*0`?`-1
  218. M!!$IP!(`LD$A&Q0K,=#9`@-`P/I@Y&<!T!&P*+$2`YTMP$=AB#'`1F$-0(!W+
  219. M4]@:-@`$#4`@[`/]0,#;`[P4!MX#U2=69&%)0"`L`Y(N$#`($)$"Z`-P[P-+,
  220. M*!:1`N@#<.\#FP_FU`.\&=;9`C5`$)$"O`+P`P01*4`?`+)!(1L4*S$0D0(+*
  221. M#B`:!TXJ0`$``!```C``!"`L`ZPQ<#YACF_`^F"*)78^88YOP-L#%T#0PF*2!
  222. M+A`P!]#9`C).!MX#*S$0D0(``L!M8\AQ0"0#<0T@]`4K,=#9`@X4EGP:%$?`V
  223. MFV&=+4#D/UU`,(UADBX0,`OP"`33&-;9`N\_8#MACF\0D0+__R_I`@'#`$0R^
  224. M$)$"G_E@.V&.;[`2`Z-`,(UAG2WP_@.V$^;X!OD_(.D"`<,`1#(0D0*?^6`[6
  225. M88YOL!(#4T`PC6&=+?#^`[83YO@&HG$0D0+__R_I`@'#`,AQ$)$"G_E@.V&.;
  226. M;[`2`V=`,(UAG2WP_@.V$^;X!J)QD/\#DBX0,`R`'`<1*?"9#[83YO@&*S&0B
  227. M"033&-;9`OD_4')3*S&0_P/3&";I`@'3``-`,(UAG2W0``1X-S6989TMT``$K
  228. M53>%0V$1*6#``.\_8#MACF^`)0,K,=``!"4WA4-A$2E@P``1*?"9#[83YO@&#
  229. M6#*P$@,A0#"-89(N$#`&L`($;!C6V0(#0%!R4RLQL!(#*S'0V0+O/V`[88YOG
  230. M(.D"`?,`G!3&N6*L%.;@`T@^UMD"1#(0(V,K,8`8`Y46QKEB(S+`&@/G$^;XD
  231. M!HD^UMD"(0_&3&%U%K82`YL/%I$"G_E@.V&.;[`2`YTM@!@#E1;&VP.L,7`^F
  232. M88YO8(EAP#K`3&'@/1"H`RLQT-D"$DOV_@.L,5!C$JP/%I$"5``@NV0O&<'ZC
  233. M8*PQ4&,2K`\6D0)4`""[9)XXQK%DMT#@L0*5`7`"`"4```A0`0``"%`!```^T
  234. M4`$```A0`0$`F$@"`0",2,('`.A+`@$`B/P'`P"4!84!`-0$!0$`BL0'`0"J%
  235. M!(4"`,D%AP*`Y(5%!8"R`D4%@*D")0F`M(92$@"OBI,4`*G*-AD`J4I5$@"I;
  236. MJNH/`/%G+0@`$:0J"``?Q.</`!%$%!``\4?\/P`)R`\@@`@H"""`!!`0((#_+
  237. M__\_P"1)DF2@)$F2I/#_____$0`0`0`1``@"`!$`"`(`$0`(`@`1``@"`/'_V
  238. M____(;MD#4#@L0(Q`!`!``<`@(#@@X#!@$`A$A0DPD%!0<$!BQ*P*%'V05@R=
  239. M4"D#L"@A]`4K,4"G`ITM<&4&S"V@$``Q%J#=`1MT,1208:0/01(`?G$4-$$5Y
  240. M(V&D+U$>882!KX70$&6AK_K1(:)9$<C9]26B6`**@9$?(HK"(1"[57!!AH$O(
  241. MB8$OR1EC^A)ED*`)2V4.(#^``N"4^[1/^Z1OJ`ZI#_JB3!B`@#<$;@A(DX8$T
  242. M;A$1(V$41`(1VQVA,18D882`O!(#S"T0#0!QY(>_>0;!%#0Q$D;Z$"0!$4=!>
  243. M$R-AI`]!$@!Q%#0Q$I;Z$N6KK_HAHED1R*E?^R6B6`**@=$BBL(A$+M5<$&&]
  244. M@2^)@2_)&4,1N2_[(A1%LF]A'_9A`8T(Z_NT3_ND;ZB^*(`_%`4K,4"G`G0J:
  245. MX*0"$0`P$`$P``+@I`(1`!`@`B(0`N"D`A$`$!`#(1`!X*0"$0`0(`(0``&Q"
  246. M$@-T*N"D`A$`$!`#(``!X*0"$0`@(`$@``+AI`(1`!`0`R$0`^"D`A$`("`!&
  247. M$A`!L!(#="K@I`(1`"`0`3```N"D`A$`("`!(0`"X:0"$0`0$`,A``+AI`(1T
  248. M`"`@`R$0`K`2`W0JX*0"$0`0$`,@$`+@I`(1`#`@`C$0`K`2`W0JX*0"$0`P/
  249. M$`$@$`+@I`(1`!`@`A$0`K`2`W0JX*0"$0````,0``+@I`(1`!`P`1(0`;`25
  250. M`W0JX*0"$0`@$`$1``*P$@,K,>"D`G```````````````````#P`````````1
  251. M`````````````````````````&`!``94151225,`$`$`3BI0!0";ZC^E_F?J"
  252. CG['^9._?'?_<\N\S_PWTOT+_E?6/@/^N^*^._TO[3]3_;<K_%
  253. ``
  254. end
  255. END_UU
  256.  
  257. -- 
  258. +-----------------------------------+---------------------------------------+
  259. | `.. . Looks like a fish, moves    |             Detlef Mueller            |
  260. |  like a fish, steers like a cow.` |          detlef@mwhh.hanse.de         |
  261. |  Ford in THGTTG, part II, p. 107  |...!uunet!mcsun!unido!mcshh!mwhh!detlef|
  262. +-----------------------------------+---------------------------------------+
  263.  
  264.